Kyoko 8203/Kyoko 8203.iso/pc/comic.dxr/00025_ëÂè„âŠ.ls

Text File | 2003-03-03 | 909 b | 35 lines

global page, photonumber, initminv, initmaxv

on mouseUp me
  mynumber = me.spriteNum
  case mynumber of
    30:
      repeat while ((initmaxv - the locV of sprite 3) / 2) <> 0
        adjust = (initmaxv - the locV of sprite 3) / 2
        set the locV of sprite 3 to the locV of sprite 3 + adjust
        if the locV of sprite 3 < (initmaxv + 2) then
          set the locV of sprite 3 to initmaxv
        end if
        updateStage()
      end repeat
    31:
      repeat while ((initminv - the locV of sprite 3) / 2) <> 0
        adjust = (initminv - the locV of sprite 3) / 2
        set the locV of sprite 3 to the locV of sprite 3 + adjust
        if the locV of sprite 3 > (initminv - 2) then
          set the locV of sprite 3 to initminv
        end if
        updateStage()
      end repeat
      updateStage()
  end case
end

on mouseEnter me
  cursor([1, 2])
end

on mouseLeave me
  cursor(0)
end